﻿<Serializable()> _
Public Class Papel
    Inherits BaseDominio

    Private _codigo As String
    Public Overridable Property Codigo() As String
        Get
            Return _codigo
        End Get
        Set(ByVal value As String)
            _codigo = value
        End Set
    End Property

    Private _habilitado As Boolean
    Public Overridable Property Habilitado() As Boolean
        Get
            Return _habilitado
        End Get
        Set(ByVal value As Boolean)
            _habilitado = value
        End Set
    End Property


#Region "Negocio"

    Public Sub New()
        MyBase.New()
    End Sub

    Public Overridable Function Buscar(ByVal _id As Long) As Papel
        Return MyBase.PapelDao.Buscar(_id)
    End Function

    Public Overridable Sub Salvar()
        MyBase.PapelDao.Salvar(Me)
    End Sub

#End Region

End Class

